home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Format CD 33
/
Amiga Format AFCD33 (Issue 117, Dec 1998).iso
/
+system+
/
tools
/
expert
/
libguide
/
libraryatvolumecheck
< prev
next >
Wrap
Text File
|
1998-09-07
|
3KB
|
84 lines
/* Library Check on a selected volume
V1.2 - 01/28/98 - © Age*/
if ~show('L',"rexxreqtools.library") then addlib('rexxreqtools.library',0,-30,0)
say "This ARexx-Script checks the libraries outside of the drawer LIBS:"
say " V1.2 - 12/28/98 - © Heiko Schröder"
say "------------------------------------------------------------------"
say ""
say "This check can take a long time (volume-size specific)."
say "Do you want to continue (Y/N)?"; Pull Keyword
If upper(Keyword)~="Y" then exit
Device = rtfilerequest(,,"Pick a device",,"rtfi_volumerequest=vreqf_noassigns")
IF Device = "" then do
echo "Cancel"
exit
END
say "I'm looking for libraries on "||Device
say "Please wait some minutes... Thanks."
if Device~="" then Device=d2c(34)||Device||d2c(34)
address command 'list ' device || 'p=#?.library to=Ram:VolLibCheck files lformat %s%s all'
say "Now I'm ready... Thanks for waiting."
say ""
say "Now i create the VolList.dvc for DVC."
Open("HDL","Ram:VolList.dvc","W")
Writeln("HDL","DVC1 (Don't change this line!)")
Writeln("HDL",";$VER: VolList.dvc by Heiko Schröder from LibGuide")
Writeln("HDL",";$EML: Heiko Schroeder <age@thepentagon.com>")
Writeln("HDL","")
IF ~OPEN('Infile',"ram:VolLibCheck","R") THEN EXIT 10 /*List-Result*/
DO WHILE 1 /* DO Forever - We'll EXIT on EOF) */
Libfile = ReadLn('Infile')
IF EOF('Infile') THEN leave
say Libfile
pos = max(pos(":",Libfile),lastpos("/",Libfile)) /*#?.library*/
temp=Delstr(Libfile,1,pos)
pos =LastPos(".library",temp) /* Version */
LibfileK=Delstr(temp,pos+8)
address command "search >ram:ListSearch search :"||LibfileK||" nonum Scripts/LibList.dvc"
Open("list","ram:Listsearch","R")
ScriptLib=readln("list")
Close("list")
If ScriptLib="" then do
address command "search >ram:ListSearch search /"||LibfileK||" nonum Scripts/LibList.dvc"
Open("list","ram:Listsearch","R")
ScriptLib=readln("list")
Close("list")
End
If ScriptLib~="" then do
pos = max(pos(":",ScriptLib),lastpos("/",ScriptLib)) /*#?.library*/
temp=Delstr(ScriptLib,1,pos)
pos =LastPos(".library",temp) /* Version */
ScriptVers=Delstr(temp,1,pos+8)
writeln("HDL",Libfile||" "||ScriptVers)
end
else writeln("HDL",Libfile||" 0.0")
End
close("Infile")
close("HDL")
say "DVC checks the version strings of your libraries."
address command "DVC list=Ram:VolList.dvc"
say ""
say "You can find a list of your libraries at Ram:VolLibCheck."
address command "delete ram:VolList.dvc QUIET"
address command "delete ram:ListSearch QUIET"
say "Press »Return« to end."
PARSE PULL Keyword
exit